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ZTITLE ‘Load Parse States ang pare 
rine NCPSTALOA (IDENT = ‘V04-000', LIST(NOOBJECT)) = 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'‘® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


; 1S SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:® vo Shon SE THE Kd WITH THE TERMS OF SUCH Leary AND re Mh, 
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144 
; } FACILITY: Network Control Program (NCP) 
3 i ABSTRACT: | 
34 ! 
$2 States and data for the parsing of NCP load commands 
H4 ; ENVIRONMENT: VAX/VMS Operating System 
39 AUTHOR: Darrell Duffy , CREATION DATE: 25-September-79 
3s MODIFIED BY: 
: i v03-002 RPG0002 Bob Grosso 10-Jun-1983 
¢ Add UNA as a service device. 
g i v03-001 RPGO001 Bob Grosso 29-Apr-1983 
Be Add Physical address. 
Mk: i v004 TMHO004 Tim Halvorsen 31-Dec-1981 
29 Add DMF32 as a service device. 
3¢ i vOG3  TMHO003 Tim Halvorsen 15-Aug-1981 
37 Add DMP, DMV and DPV service devices. 
55 1! vO0O2 _TMHO0O2 Tim Halvorsen 14-Jul-1981 
B26 ! Add reference to SEM_LINE_ID macro, in order for 
5 : SE_CIRC_ID to work. 


40) eh eS patient? testy fer fone ISScoc1QHt 99:25:01 YAtSTSsBANescH2, ¥t-0504 ae st 


v001 MHO001 im Halvorsen 22-Jun-1981 
eee BUILD_ spe. ref oe to use full entity type field. 
ine. 
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‘Definitions’ 


INCLUDE FILES: 


LIBRY’: 
ARY:TPAMAC'; 
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ag 


EXTERNAL REFERENCES: 


! External symbols for action routines 


ACT_DFN 
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NCPSTALOA Load Parse States and Data 16-Sep-1984 00:35:01 AX-11 Bliss-32 V4.0-742 Page 4 
¥O62000 Parameter blocks 127808- 1382 90:78:94 NCP. SRCINCPSTALOA.B32; 1 . (3) 
: 0 O78 1 ZSBTTL ‘Parameter blocks’ : 
: 1 79 «1 ° 
3 ¢ 080 1! . 
s 081 1 ! BIND DATA: ° 
3 4 oes Ss - 
3 5 0 1 : 
3 $ 0084 1! e 
; 4 eH 1! Parameter Blocks ° 
3 8 086 1! ; 
; ant 1 : 
3 90 P 0088 1 BUILD_PCL ; 
; (91 P 0089 1 c 
9 P 0090 1 (LOA, - 
,  § P 0091 1 ° 
: 94 P 0092 1 SLI, TKN PCNO_SLI, , ’ 
> 95 P0093 1 SPW, HXPS, PCNO-SPA, , 
3 96 P 0094 1 SDV, 6 PCNO_SDV, , 
3 97 P 0095 1 CPU, ° PCNO_CPU, , 
3 98 P 0096 1 LFL, TKN, PCNO_LOA, , 
; 99 P 0097 1 SLF, TKN, PCNO-SLO, , 
; 100 P 0098 1 TLF, TKN PCNO_TLO, , 
> 107 P 0099 1 STY, NUMB, PCNO_STY, , 
; 102 P0100 1 SID, TKNQ, PCNO_SID, , 
; 103 P 0101 1 HOS, DR, PCNO_IHO, , 
3 104 p 0108 1 NAM, TKN, PCNO_NNA, , 
: 105 P 010 1 ADR, NUMW, PCNO_ADD, , 
; 106 P 01046 1 PHA, NIADR, PCNO_ “PHA, , 
; 107 P 0105 1 
; 108 P 0106 1 .. a 
: 109 P 0107 1 
; 110 0108 1 ) 
s 41 0109 1 
; Ng P0110 1 BUILD_PCL 
ie 3 P0111 1 
3; 114 P big 1 (LOV, 
s 115 P O11 1 
s 116 P0114 1 SPW, HXPS, PCNO_SPA, LOA_SPW, 
es 63t7 P0115 1 SDV, NUMB, PCNO-SDV, LOA~SDV, 
; 118 P0116 1 PU, . PCNO_CPU, LOA_ e 
; 119 P0117 1 LFL, TKN, PCNO_LOA, LOA_LFL, 
: 120 P0118 1 SLF, TKN, PCNO_SLO, LOA_SLF, 
- a2 Pp Bi 1 TLF, TKN PCNO_TLO, LOA_TLF, 
Ss. ¢ P 0120 1 STY, ‘ PCNO_STY, LOA_STY, 
ee P Bt Be SID, TKNQ, PCNO_SID, LOA_SID, 
: 124 P 01 ¢ 1 HOS, R, CNO-IHO, LOA_HOS, 
: 125 P0123 1 NAM, TKN, PCNO_NNA, LOATNAM, 
: 126 P0124 1 ADR, PCNO_ADD, LOA_ADR, 
: 127 P0125 1 PHA. NIADR, PCNO-PHA, LOA~PHA, 
; 128 P 1¢6 1 
3 1 Gg P 1 1 END, od | 
; 130 P0128 1 
s- SSs 129 «#1 ) 
5 § 130 1 | 
ae P 01351 1 BUILD_PBK 
: 135 P 01 1 (LOA, 
s 1 P0134 1 | 
| 


2 
NCPSTALOA Load Parse States and Data 1b-sep-1 4 7:35:01 
YOe Parameter blocks 12-80-1382 90:33:9) 
; 137 P0135 1 NOD, NADR, , VRB_ENT, 
: 4 8 P 01 6 1 SLI; TKN, , . 
eh P 01 1 SPw, HxPS,’,°, 
: 140 P 01 : 1 LFL. TKN, , . 
> 141 P 01 1 SLF. TKN, . 
: 169 P3140 1 7LF. TKN, ., 
: 16 P0141 1 HOS. NADR, , . 
> 144 P 148 1 AM: TKN, , , 
> 145 P0143 1 ADR; N ha 
: 146 Pp 0144 1 PHA, NIADR, , , 
: 16 P0145 1 
: 148 P 146 1 SDVP, LITB, NMASC_SOFD_DP, LOA_SDV, 
>: 16 P0147 1 SDVU, LITB. NMASC-SOFD-DU, LOA"SDV, 
: 150 P0148 1 SDVL, LITB, NMASC-SOFD-DL, LOA-SDV, 
> 151 P0149 1 SDVQ, LITB, NMASC~SOFD"DQ, LOA-SDV, 
; 138 P0150 1 SDVA, LIT, NMASC-SOFD-DA, LOA-SDV, 
: 15 P0151 1 SDVUP, L1°8, NMASC_SOFB_DUP, LOA_Sbv, 
: 154 P 0136 1 SDVMC, LITB, NMASC-SOFD-DMC, LOA-SDV, 
; 155 P0153 1 SDVTE, LITB, NMASC“SOFD-DTE, LOA"SDV, 
: 156 P0154 1 SDVKL, LITB, NMASC-SOFD-KL8, LOA-SDV, 
: 157 P0155 1 SDVMP, LITB, NMASC-SOFD-DMP, LOA-SDV, 
: 158 P 0136 1 SDVMV, LITB, NMASC-SOFD-DMV, LOA~SDV, 
: 159 P0157 1 SDVPV, LITB, NMASC_SOFD-DPV, LOA~SDV, 
: 160 P0158 1 SDVMF, LITB, NMASC-SOFD-DMF, LOA-SDV, 
; 161 p 0159 SDVUN, LITB, NMASCSOFD"UNA, LOA"SDV, 
: 188 P0161 1 CPU8, LITB, NMASC_CPU_8, LOA_CPU, 
> 164 P O16¢ 1 CPul{, LITB. MMASC~CPU-11, LOK CPU 
: 165 P0163 1 CPU10, LITB. NMA$C~CPU-1020, LOA_CPU, 
: 166 P0164 1 AX,  LITB, NMASC~CPU-VAX, LOA_CPu, 
> 167 P0165 1 
: 168 P0166 1 STSL, LITB, NMASC_SOFT_SECL, LOA_STY, 
: 169 P 0167 1 STTL, LITB. NMASC~SOFT-TERL., LOA-STY, 
: 170 P0168 1 STOS, LITB. NMASC~SOFT-OSYS, LOA-STY, 
> 171 P0169 1 
: 172 P0170 1 SID, TKNQ, , , 
: 173 P0171 1 
: 17% O17¢ 1 ) 
> 175 O17 1 
: 176 P0174 1 BUILD_SDB 
ee aa P0175 1 
: 178 0176 1 (LOA, NMASC_ENT_NOD, VRB_ENT, LOA) 
: 179 0177 #1 
: 180 P0178 1 BUILD_SDB 
> 181 P0179 1 
: 182 0180 1 (LOV, NMASC_ENT_NOD, LOA_SLI, LOV) 
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Build prompt strings 
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1 

1 

1 

1 

1 

: BIND 

i PROMPT_STRINGS 
: (LOA, 

1 ENT, ° (NODE node-id, VIA circuit-name): ', 
1 VIA; ‘Circuit to use (circuit-name): ', 
: NOD, "Node to load (node-name, address): ‘, 
2 ) 
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e Table Entry 1 tae 1 99:33:51 INCE. SRE WEBS TALUA O53 004 ~~ (5 | 


NCPSTALOA L 
¥04°000 § 
: 8¢ ZSBTTL ‘State Table Entry’ 

; SINIT STATE (NCPS$G_S7I(BL_LOA, NCPSG_KYTBL_LOA); 


| 
; Load Command 


} Dispatch to entity types and prompt if end of string 


1 
1 
1 
5 5 1 
: 306 1 | 
oO 1 
: 1 | 
a 1 
s 10 
2 } 
i $18 08 
: 216 P0210 1 COMMAND PROMPT 
3 \3 Pp 4 "1 | (LGA, EAT, NCPS_INVKEY, 
: i$ P 0 3 1 ("NODE', ST_LOA_NOD), 
; 218 P0214 1 ("VIA', ST LOA_VIA) 
; 19 P0215 1 
>; 220 0 16 1 ) 
: eel 0217 1 
3 $s¢ 0218 1! 
3 de 0313 1! Obtain Node I? 
3 $e 0220 1! 
; $2 0221 1 
» 226 P Oeee | COMMAND_PROMPT 
3 de P 0223 1 (LOA, NOD, NCPS_INVVAL, 
; 228 oa OSss 3 
3 $29 P 0225 1 ( (SE_NODE_ID), , ACTSSAVPRM, , , PBK$G_LOA_NOD) 
; 2350 P 9226 1 
; $3] 0 7 1 ) 
3 ¢ 0228 1 
: 23 PO 3 1 $STATE ( 
: 234 P 0230 1 ( 
: 235 231 «1 ) 
; 236 iat 1 
> 237 P0233 i SSTATE ( 
; 238 P0234 1 (TPAS_EOS, TPAS_EXIT,. ACTS$VRB_UTILITY, , . SDB$G_LOA) 
: 239 0235 1 D3 


"(ST_LOA_PRM) ) 
| 
| 
| 
| 
| 
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3 41 1 $ 
3 4 1! F 
: 44 33 Load over specified circuit 
> 26 P 0241 1 COMMAND_PROMPT : 
: f 4 48 ! (LOA, VIA, NCPS_INVVAL, : 
: 249 P 0264 1 ( (SE_CIRC_ID), , ACTSSAVPRM, NMAC ENT_C ; 
; 250 P0245 1 CPSGL "OPTION, PBK$G_LOA_SLI) : 
3 51 0 re] : ); 

; a P 8 46 1 SSTATE (, 

> 254 P0249 1 ("(ST_LOA_PRM) ) 

: $8 $589 | a: 

: $2 P 0 38 1 SSTATE ( 

> 258 P0253 1 (TPA$_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_LOV) 

: 259 0254 1 ); 
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CPU, ‘CPU 


5 6 1 ZSBTTL ‘Load Parameters’ 
: ef 

; 264 ! Load Parameters 

: 265 ! 

; € P SSTATE (ST LOA, PRM 

; 268 P (TPRS_EOS, TPAS_EXIT, ACTSSAVPRM, , , PBKSG_VRB_ALL), 
: 269 p (TPAS-LAMBDA) 

; 270 ); 

3 71 

3 ie 

3 oF ZSBTTL ‘Dispatch States’ 
: 275 i 

3 g Dispatch states 

: 278 , 

3 Le SSTATE (ST_LOA_PRC, 

> 281 DISPATCH_STATES 

: HG (LOA, 
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Subexpressions 


SUB 
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Define subexpressions from Library 


SEM_LOAD (LOA) '¢§ pec tal strings parameter decoding 
SEM_FILE_ID ! 8 le id string 

SEM_HEX_PSw ' Hex password 

SEM_CIAC_ID ! Circuit name strings 
SEM_LINE_ID ! Line ID strings 

SER _NODE 1D ! Node id strings 

SEM_QUOT_STR ! Quoted strings 

SEM_NI_ADBR ! NI address 
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; ¢ § ‘| ZSBTTL ‘Object Listing of Parse Table’ 
: 4 END ‘End of module 
405 ELUDOM 


